﻿
Partial Class Interfaz_transicionPersonal
    Inherits System.Web.UI.Page
    Dim CL As New logica.ModuloPrincipal.ControladorLogica

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        CL = logica.ModuloPrincipal.ControladorLogica.getInstance
        If CL.visibilidadesForms("SistemaPersonal", Session("user").ToString) Then
            Response.Redirect("frmSistemaPersonal.aspx")
        Else
            Response.Redirect("Seleccion.aspx")
        End If
    End Sub
End Class
